* sysdep.c (system_process_attributes): Use CONS_TO_INTEGER in new FreeBSD code,...

diff --git a/src/sysdep.c b/src/sysdep.c
index 867b2d74bced31600d26a836ccf2c6866fd11fab..9d09d1d2c6759293831698775ea2a0999c35fd31 100644 (file)
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -3157,7 +3157,7 @@ system_process_attributes (Lisp_Object pid)
   Lisp_Object decoded_comm;
 
   CHECK_NUMBER_OR_FLOAT (pid);
-  proc_id = FLOATP (pid) ? XFLOAT_DATA (pid) : XINT (pid);
+  CONS_TO_INTEGER (pid, int, proc_id);
   mib[3] = proc_id;
 
   if (sysctl (mib, 4, &proc, &proclen, NULL, 0) != 0)